home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / BIOHAZ.EXE / ALIASES.INI next >
INI File  |  1997-03-23  |  9KB  |  254 lines
  1. [Aliases]
  2. n0=about {
  3. n1=  echo : 11,1▀ε°HσZσ«╨ is an ELEET orginazation on DALnet formed by ^BLADE^
  4. n2=  echo : 11,1This is the first version of ▀ε°HσZσ«╨ script :) Please enjoy!!
  5. n3=}
  6. n4=myver {
  7. n5=  msg $chan $me is using 14,1▀ε°HσZσ«╨ 8,1v1.01,8By ZiNC : Supported by the group ▀ε°HσZσ«╨ on 2DALnet!!
  8. n6=}
  9. n7=baway {
  10. n8=  echo 4▀ε°HσZσ«╨ Setting $me away....
  11. n9=  away AwAY..
  12. n10=  msg $chan $me is now away.. Reason for being away: +++:8,1 $$?="ReasoN For Going Away" :+++ ..  TiME of GoiNG away: $time  On sErVer: $server 
  13. n11=}
  14. n12=back {
  15. n13=  echo BriNginG $me BACK from the void..
  16. n14=  away
  17. n15=  msg $chan $me is back... (11,1 $$?="Message for coming back" )
  18. n16=}
  19. n17=digi {
  20. n18=  msg $chan 14,1▀ε°HσZσ«╨ DigiTaL CloCk!
  21. n19=  msg $chan 8,1( $time )
  22. n20=  msg $chan 1,115,1D8,1i12,1g9,1i4,1w11,1a15,1r10,1e
  23. n21=}
  24. n22=biostat {
  25. n23=  msg $chan 8,1Bio1,8Stat
  26. n24=  msg $chan Time: $time
  27. n25=  msg $chan Date: $date
  28. n26=  msg $chan Chan: $chan
  29. n27=  msg $chan Nick: $me
  30. n28=  msg $chan Serv: $server
  31. n29=}
  32. n30=biostat {
  33. n31=  msg $chan 8,1Bio1,8Stats
  34. n32=  msg $chan Server: $server
  35. n33=  msg $chan TiME: $time
  36. n34=  msg $chan 8,1Bio1,8Stats
  37. n35=}
  38. n36=/abcvote {
  39. n37=  /enable #abcpoll
  40. n38=  set %a 0
  41. n39=  set %b 0
  42. n40=  set %c 0
  43. n41=  set %abcquestion $?="Enter Question"
  44. n42=  set %avalue $?="Enter A Value"
  45. n43=  set %bvalue $?="Enter B Value"
  46. n44=  set %cvalue $?="Enter C Value"
  47. n45=  msg # "ABC" voting is now in progress......
  48. n46=  msg # The question is [ $+ %abcquestion $+ ].....
  49. n47=  msg # Vote [A] $+ %avalue [B] $+ %bvalue [C] $+ %cvalue
  50. n48=  msg # Type !vote <a,b,c> to vote[closeing in 2 min] 
  51. n49=  .timer 1 60 /msg # Only 60 sec Left To Vote (!vote <a,b,c>)
  52. n50=  .timer 1 120 /abclose
  53. n51=}
  54. n52=/abclose {
  55. n53=  disable #abcpoll
  56. n54=  set %a %a * 100
  57. n55=  set %a %a / %totalabc
  58. n56=  set %b %b * 100
  59. n57=  set %b %b / %totalabc
  60. n58=  set %c %c * 100
  61. n59=  set %c %c / %totalabc
  62. n60=  set %totalabc %totalabc * 100
  63. n61=  set %totalabc %totalabc / $nick(0,#)
  64. n62=  msg # voting is now closed..the votes are being counted..
  65. n63=  msg # %totalabc $+ % of the users on # voted on ===========>[ $+ %abcquestion $+ ]<===========
  66. n64=  msg # [A] $+ %avalue $+ = %a $+ % [B] $+ %bvalue $+ = %b $+ % [C] $+ %cvalue $+ = %c $+ %
  67. n65=  if ((%a > %b) && (%a > %c)) goto awin
  68. n66=  if ((%a > %b) && (%a = %c)) goto aandc
  69. n67=  if ((%a > %c) && (%a = %b)) goto aandb
  70. n68=  if ((%a < %b) && (%c < %b)) goto bwin
  71. n69=  if ((%a < %b) && (%c = %b)) goto bandc
  72. n70=  if ((%a < %c) && (%c > %b)) goto cwin
  73. n71=  if ((%a = %b) && (%a = %c)) goto equal
  74. n72=  :awin
  75. n73=  msg # The majority voted for [A] $+ %avalue !!!! 
  76. n74=  goto end
  77. n75=  :bwin
  78. n76=  msg # The majority voted for [B] $+ %bvalue !!!! 
  79. n77=  goto end
  80. n78=  :cwin
  81. n79=  msg # The majority voted for [C] $+ %cvalue !!!! 
  82. n80=  goto end
  83. n81=  :equal
  84. n82=  msg # It equaled out!!!
  85. n83=  goto end
  86. n84=  :aandb
  87. n85=  msg # [A] $+ %avalue and [B] $+ %bvalue Were Tied!! 
  88. n86=  goto end
  89. n87=  :aandc
  90. n88=  msg # [A] $+ %avalue and [C] $+ %cvalue Were Tied!! 
  91. n89=  goto end
  92. n90=  :bandc
  93. n91=  msg # [B] $+ %bvalue and [C] $+ %cvalue Were Tied!! 
  94. n92=  :end
  95. n93=  unset %a | unset %b | unset %c | unset %avalue | unset %bvalue | unset %cvalue | unset %abcquestion | unset %totalabc | unset %notagain
  96. n94=}
  97. n95=code {
  98. n96=  set %pos1 0
  99. n97=  if (%code1 == º) { goto start1 }
  100. n98=  if (%key < 2) || (%key > 90) { key }
  101. n99=  set %len1 $len(*1) | set %code *1 | set %color1 4 | set %code1 "" | set %codekey %key
  102. n100=  :start1
  103. n101=  inc %pos1 1
  104. n102=  %asc1 = $asc($mid(%pos1,1,%code)) + %codekey
  105. n103=  if (%asc1 > 126) { dec %asc1 94 }
  106. n104=  set %code1 %code1 $+ $chr(%asc1)
  107. n105=  if (%pos1 < %len1) { goto start1 }
  108. n106=  say º %code1
  109. n107=  echo %color1 > º %code
  110. n108=  unset %len1 | unset %asc1 | unset %pos1 | unset %code | unset %code1 | unset %color1
  111. n109=  unset %codekey
  112. n110=}
  113. n111=code0 set %len1 $len(*1) | set %code *1 | set %code1 º | set %color1 2 | set %codekey 91 | code
  114. n112=decode {
  115. n113=  set %len2 $len(%decode)
  116. n114=  if (%len2 > 300) { echo 4 %chan *** Decode halted; possible decode flood from %nick $+ . | halt }
  117. n115=  if ($mid(1,1,%decode) == º) { set %pos2 1 | set %color2 2 | set %decodekey 91 | goto start1 }
  118. n116=  if (%key < 2) || (%key > 90) { key }
  119. n117=  set %pos2 0 | set %color2 4 | set %decodekey %key
  120. n118=  :start1
  121. n119=  set %code2 ""
  122. n120=  %key2 = %decodekey + 33
  123. n121=  :start2
  124. n122=  inc %pos2 1
  125. n123=  set %asc2 $asc($mid(%pos2,1,%decode))
  126. n124=  if (%asc2 < %key2) { inc %asc2 94 }
  127. n125=  dec %asc2 %decodekey
  128. n126=  if (%asc2 == 94) { set %asc2 160 }
  129. n127=  set %code2 %code2 $+ $chr(%asc2)
  130. n128=  if (%pos2 < %len2) { goto start2 }
  131. n129=  echo %color2 %chan < $+ %nick $+ > %code2
  132. n130=  unset %len2 | unset %nick | unset %chan | unset %asc2 | unset %key2 | unset %pos2
  133. n131=  unset %code2 | unset %color2 | unset %decode | unset %decodekey
  134. n132=}
  135. n133=key {
  136. n134=  set %key $$?="Number (2-90 excluding 10,13 and 27)?"
  137. n135=  mykey
  138. n136=}
  139. n137=mykey {
  140. n138=  if ((%key < 2) || (%key == 10) || (%key == 13) || (%key == 27) || (%key > 90)) {
  141. n139=    echo 4 $active *** Enter a number between 2 and 90, excluding 10,13 and 27.
  142. n140=  }
  143. n141=  else { echo 4 $active *** Code key is %key $+ . }
  144. n142=}
  145. n143=/asd  {
  146. n144=  set %asd $$?1="EnteráText" *2
  147. n145=  %asd = $replace(%asd,0,°)
  148. n146=  %asd = $replace(%asd,1,╣)
  149. n147=  %asd = $replace(%asd,2,▓)
  150. n148=  %asd = $replace(%asd,3,│)
  151. n149=  %asd = $replace(%asd,ae,╞)
  152. n150=  %asd = $replace(%asd,a,σ)
  153. n151=  %asd = $replace(%asd,b,▀)
  154. n152=  %asd = $replace(%asd,c,⌐)
  155. n153=  %asd = $replace(%asd,d,╨)
  156. n154=  %asd = $replace(%asd,e,δ)
  157. n155=  %asd = $replace(%asd,i,ε)
  158. n156=  %asd = $replace(%asd,l,ú)
  159. n157=  %asd = $replace(%asd,n,±)
  160. n158=  %asd = $replace(%asd,o,≡) 
  161. n159=  %asd = $replace(%asd,r,«)
  162. n160=  %asd = $replace(%asd,s,º)
  163. n161=  %asd = $replace(%asd,u,╡)
  164. n162=  %asd = $replace(%asd,x,╫)
  165. n163=  %asd = $replace(%asd,y,Ñ)
  166. n164=  %asd = $replace(%asd,!,í)
  167. n165=  %asd = $replace(%asd,?,┐)
  168. n166=  %asd = $replace(%asd,<,½)
  169. n167=  %asd = $replace(%asd,>,╗)
  170. n168=  %asd = $replace(%asd,-,¼)
  171. n169=  %asc = $replace(%asd,:,ª)
  172. n170=  say %asd
  173. n171=  unset %asd
  174. n172=}
  175. n173=mirror {
  176. n174=  %baktext = ""
  177. n175=  %thatext = *1
  178. n176=  %len = $len(%thatext) + 1 
  179. n177=  :bak
  180. n178=  dec %len
  181. n179=  if (%len = 0) { echo %baktext | halt }
  182. n180=  %baktext = %baktext $+ $mid(%len,1,%thatext)
  183. n181=  goto bak
  184. n182=}
  185. n183=/on {
  186. n184=  %onick = 0 | %onicks = $opnick(0,#)
  187. n185=  if (%onicks == 0) { echo 5 There are no People with 4,1OPS on # | halt }
  188. n186=  if (%onicks > 0) { echo 1 -> OPS on # $+ :OPS: $+ # $+ : *1 }
  189. n187=  :next
  190. n188=  inc %onick 1
  191. n189=  if (%onick > %onicks) { goto end }
  192. n190=  :msg
  193. n191=  raw -q notice $opnick(%onick,#) :OPS: *1
  194. n192=  goto next
  195. n193=  :end
  196. n194=  halt
  197. n195=}
  198. n196=;**************
  199. n197=/vn  {
  200. n198=  %vnick = 0 | %vnicks = $vnick(0,#)
  201. n199=  if (%vnicks == 0) { echo 5 There are no People with 4,1VOICE on # | halt }
  202. n200=  if (%vnicks > 0) { echo 1 -> Voices on # $+ :Voices: $+ # $+ : *1 }
  203. n201=  :next
  204. n202=  inc %vnick 1
  205. n203=  if (%vnick > %vnicks) { goto end }
  206. n204=  :msg
  207. n205=  raw -q notice $vnick(%vnick,#) :VOICES: *1
  208. n206=  goto next
  209. n207=  :end
  210. n208=  halt
  211. n209=}
  212. n210=/non {
  213. n211=  %nonick = 0 | %nonicks = $nopnick(0,#)
  214. n212=  if (%nonicks == 0) { echo 5 There are no People without 4,1OPS on # | halt }
  215. n213=  if (%onicks > 0) { echo 1 -> NON-OPS on # $+ :NON-OPS: $+ # $+ : *1 }
  216. n214=  :next
  217. n215=  inc %nonick 1
  218. n216=  if (%nonick > %nonicks) { goto end }
  219. n217=  :msg
  220. n218=  raw -q notice $nopnick(%nonick,#) :NON-OPS: *1
  221. n219=  goto next
  222. n220=  :end
  223. n221=  halt
  224. n222=}
  225. n223=;**************
  226. n224=/cstat /set %chanst on | /set %hops 0 | /set %anum 0 | /set %opnum 0 | /set %unum 0 | /set %ircops 0 | /set %nopnum 0 | /set %clones 0 | /set %addies | /set %here 0 | /who #
  227. n225=/f1 {
  228. n226=  if %away == Off {
  229. n227=    set %away On
  230. n228=    set %returnnick $me
  231. n229=    set %awaynick $$?="Enter Away Nick Here"
  232. n230=    set %awaymsg $$?="Enter Away Message Here"
  233. n231=    .timer 1 2 /nick %awaynick
  234. n232=    amsg 11-=<>=- 2-=- [12Status] 2Away [12Doing] 2 $+ %awaymsg $+  2-=- type /ctcp 12 $+ %awaynick $+  2 tkpage (message) to page me 11=-
  235. n233=    .timer909 0 %awaytimer /amsg 11-= 12-=<14,1▀ε°1,14HσZσ«╨>=- 11=- 2-=- [12Status] 2Away [12Doing] 2 $+ %awaymsg $+  2-=- type /ctcp 12 $+ %awaynick $+  2biopage (message) to page me 11=-
  236. n234=    .away %awaymsg
  237. n235=    .enable #messagerecorder
  238. n236=  }
  239. n237=  else {
  240. n238=    .set %away Off
  241. n239=    nick %returnnick
  242. n240=    amsg 11-= 12-=<14,1.Away/Back
  243. n241=    ..On/Off:/f1
  244. n242=    ..Set Timer Time: {
  245. n243=      set %awaytimer $$?="Set New Timer (In Seconds)"
  246. n244=      echo 3 -a *** Away/Back repeat timer set at %awaytimer Seconds
  247. n245=      }>=- 2-=- [12Status] 2Back 11=-
  248. n246=      .away
  249. n247=      .timer909 off
  250. n248=      run awaymsg.txt
  251. n249=      .disable #messagerecorder
  252. n250=    }
  253. n251=  }
  254.